home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / tp256d.exe / SIMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1989-11-28  |  667b  |  26 lines
  1. { Demonstrates:  Dynamically loaded BGI file. }
  2.  
  3. { Super VGA  BGI graphics driver }
  4. {        Thomas Design           }
  5. {        Nov.  28, 1989          }
  6. {   Test routine                 }
  7.  
  8. uses
  9.   Graph,crt,ISVGADET,VGAEXTRA;
  10.  
  11. var
  12.   Gd, Gm : integer;
  13.   count  : integer;
  14.   DAC    : RGB;                        { define the DAC array (type in TPU) }
  15.  
  16. begin
  17.   Gd := InstallUserDriver('ISVGA256',@_DetectISVGA256);  { must say   gd := Install...  to work }
  18.   Gd := DETECT;
  19.   InitGraph(Gd, gm ,'');
  20.     outtextxy(0,50,getmodename(gm));
  21.     outtextxy(getmaxx div 2,getmaxy div 2,'Hello World');
  22.   repeat until keypressed;
  23.   restorecrtmode;
  24. end.
  25.  
  26.